home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / A-PLUS-6.2.ARC / TURBO A+ C6.0.1 (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  522b  |  12 lines
  1. 1 REM TURBO A+ C6.0.0   2/3/88
  2. 2 :S=53280:POKES,0:POKES+1,0:PRINTCHR$(142):Q$=CHR$(34):IFA=0THENPRINT"[147]";TAB(12)"[155]WAIT FOR A-PLUS[144]
  3. 3 [141]11:[139]A[178]1[175]E[178]62[167]7
  4. 4 [139]A[178]0[167]A[178]1:[147]"TD",8,1
  5. 5 [139]A[178]1[167]:[158]49152
  6. 6 [141]8
  7. 7 [151]2,64:[151]787,64:[151]646,0:[153]"STOP";:[153]"LOAD"Q$[170]F$[170]Q$",8ONONON":[151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5:[128]:
  8. 8 [159]15,8,15:[159]8,8,8,"#":[152]15,"U1:"8;0;18;0:[152]15,"B-P:"8;144:[129]I[178]1[164]16:[161]#8,A$:[139]A$[178]" "[167]A$[178][199](160)
  9. 9 DN$[178]DN$[170]A$:A$[178]"":[130]:[160]8:[160]15:F$[178]"MB*":[139][202](DN$,4,6)[179][177]"MASTER"[167]F$[178]"A+ OBJ*
  10. 10 RETURN
  11. 11 OPEN15,8,15:INPUT#15,E,E$,J,J:PRINT#15,"I0":CLOSE15:RETURN
  12.